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Clear/Purge Parse States and Data ib-se -1984 00:05:04 AX-11 Bliss-32 V4.0-74 Page 1 
’ eae rae ee TMT Td Sat CE Pay 9 4) 
1 ZTITLE ‘Clear/Purge Parse S$ ates and Data‘ ‘ 
§ poets NCPSTACLP (IDENT = ‘V04-000', LIST(NOOBJECT)) = : 
1 3 
mk | ; 
0 : | a cai ama enema lbenno nla ic ae aaa e 
008 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . : 
09 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . : 
ay ! ‘* ALL RIGHTS RESERVED. - : 
0018 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
015 1 !* ONLY IN ACCORDANCE WITH T R OF SUCH LICENSE AND WITH THE * ; 
Bie 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS TWARE OR ANY OTHER * : 
15 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
big 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
Bet : is TRANSFERRED. * : 
. * e 
itty 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
4 1 : CORPORATION. : 
00 : 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
BS : : is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ~ 
i 
09 ; : | penensenenenenndboosbeesoneeeseeseseesseseneseseennenenaebeneseuneenenenenen 
. 3 
0029 1 
0030 1 !++4 
Boe, ' } FACILITY: Network Control Program (NCP) 
99 : ABSTRACT: 
OoR2 : ; States and data for the parsing of NCP clear and purge commands 
0037 } ENVIRONMENT: VAX/VMS Operating System 
444 : AUTHOR: Darrell Duffy , CREATION DATE: 14-September-79 
9041 MODIFIED BY: 
be§ 1 v03-019 PRDOOS3 Paul R. DeStefano 05-Feb-1984 
bee } Allow OBJECT parameter to accept both name and number. 
046 1/ v03-018 PRDO0S2 Paul R. DeStefano 05-Feb-1984 
Oe ' : Complete addition of and enable X25-Access parsing. 
§ 1 v03-017 RPGO017 Bob Grosso 01-0c t-1982 
29 : Clear module Configurator. 
0¢ 1! v03-016 RPG0016 Bob Grosso 21-Sep-1982 
2 ' Add clear DTE and Clear Group and Clear Tracepoint | 
is 1 v03-015 RPGO015 09-Aug-1982 
57 1! 


Bob Grosso 
Add CLEAR LINE MODE/MICROCODE. 


NCPSTACLP Clear/Purge Parse States and Data 16-5e Sep-1984 00:0 AX-11 Bliss-3 
Vv v Sep-1984 99: 3: % NCP.SRCINCPST 


: v03-014 RPGOO14 Bod Sr 15-Jul-1982 
Add CLEAR/PURGE X “frece. Module Configurator, Console 
: loader, looper. 
v013 RPGO013 ++ 2 Grosse 09-Jul-1982 
A param 


dd NI node 
Seaees CLEAR’ PURGE “NODE — since parse tables have 
have exceded keyword Lim 


v012 RPGOO12 Bob Gro 10-May-1982 
Add support for circuit SART and RPR for NI unser’. 
Change MAX BLOCK to MAX DATA. 


vo11 TMHO011 Tim Halvorse 08-Mar-1982 
Remove prompting for CLEAR CINE, CIRCUIT ae “NODE 
parameters, since it is somewhat confusing 
these commands are normally used only to 2lear the 
entire database entry, rather than a single parameter. 
It also makes it easier to hide latent support of 


SSN 


oore sob 
0079 v010 MHO010 Tim Halvo 20-Jan-1982 
0080 had CIRCUIT TRANSPORT TYPE. VERIFICATION parameters. 
eet Remove prompting of X25 specific parameters. 
008 v009 TMHO009 Tim Halvo 08-Jan-1982 
084 Remove TMHO004, ally pestering RETRANSMIT TIMER 
0085 to a tne parameter, which is what NM V3.0 finally 
se $4 Add additional prompting for CLEAR LINE. 
0089 vo08 MHO008 Tim Halvo 18-Dec-1981 
Beae had CLEAR OBJECT PROXY, EXECUTOR DEFAULT PROXY & NODE PROXY. 
454 v007 MH0007 Tim Halvorsen 11-Nov-1981 
Boaz had circuit source type to clear logging. 
0095 v006 MHO006 Tim Halvo ecapet= -1981 
4847 rn CLEAR CIRCUIT TRIBUTARY. to send t ht 
009 NICE parameter code. Add CLEAR EXEC  OEFAU T ACCESS 
Be88 and CLEAR NODE ACCESS. 
1 voo5 TMHOO0S Tim Halvorsen 18-Aug-1981 
101 Change NODE MAXIMUM LINES to MAXIMUM CIRCUITS. 
§ Change NODE at te Lim te, SERVICE CIRCUIT. 
oul e NODE LINE (lo poe tt to CIRCUIT. 
Add CLEAR EXECUTOR Pl ELINE bora! 


v004 Halvorsen 05-Aug-1981 
change. RETRANSAIT. TIReR to a circuit parameter 
from a Line parameter. 


v003 TMHOO03 Tim Halvorsen 07-Jul-1981 
Rename circuit maximum blocks to maximum transmits. 
Add Line clock parameter. 
Add dispatching for CLEAR X25-xxx. 
Add node subaddresses parameter. 
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Remove HOST ID srenek “tres CLEAR EXECUTOR. 


15 115 1! 

1 118 1! v002 TMHO002 Tim Halvorsen 11-Jun-1981 

i Add CLEAR CIRCUIT 

12 i v001 LMK0001 Len Kawell 5-Jan-1981 
121 1: 
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NCPSTACLP Clear/Pu yrge Parse States and Data 
Definitions 

s 123 1 § 1 ZSBTTL ‘Definitions’ 

; 126 1 1 

s 125 12446 1! 

ae $ 125 1 ! INCLUDE FILES: 

te 1 $ 1! 

; 128 1 1 

s 129 1 3 1 LIBRARY ‘LIBS: arog | A 

; 150 1 1 LIBRARY ‘LIB$:NCPLIBR 

3 | 1 1 9 LIBRARY ‘SYSSLIBRARY: tPA 

| ¢ 1 § 1! 

.-% 1 1 ' EXTERNAL REFERENCES: 

: 135 134 1 

et 135 #1 

:.¥ 1 § 1 EXTERNA 

; 138 1 1 NCP$G_STTBL_CNO, 

; 139 138 #1 NCP$G_KYTBL_CNO, 

: 140 139 1 NCP$G_STTBL_CEX, 

: 6 61461 gio 1 NCPSG_KYTBL_CEX, 

: 14g 141 1 NCP$G_STTBL_CCF, 

3 (16 O14¢ 1 NCP$G_KYTBL_CCF, 

: 144 0143 1 NCP$G_STTBL_CCS, 

: 145 0144 1 NCP$G_KYTBL_CCS, 

: 146 0145 1 NCP$G_STTBL_CLD, 

s 16 0146 1 NCP$G_KYTBL_CLD, 

: 148 147 1 NCPSG” STTBL “CLP, 

> 149 148 1 NCP$G_KYTBL_CLP, 

: 150 149 1 NCP$G_STTBL_CAC, 

: 151 150 1 NCP$G_KYTBL_CAC, 

; 13¢ 0151 1 NCP$G_STTBL_CPR, 

> 15 Oise | NCP$G_KYTBL— 

: 154 0153 1 NCP$G_STTBL_CPROTE, 

> 155 0138 1 NCP$G_KYTBL_CPRDTE, 

: 156 155 1 NCP$G_STTBL_CPRGRP, 

> 157 0156 1 NCP$G_KYTBL_CPRGRP, 

; 158 0157 1 NCP$G_STTBL_CSE, 

: 159 138 1 NCP$G_KYTBL_CSE, 

: 160 159 1 NCP$G_STTBL_CTR, 

+ 161 160 1 NCP$G_KYTBL_— 

: 16@ 0161 1 NCP$G-STTBL_CTRIPT. 

: 16 0168 1 NCP$G_KYTBL_CTRIPT, 

3; 6164 01635 1 NCP$G_STTBL_C9S, 

: 165 0164 1 NCPSG_ esi “C95. 

; 166 165 1 PBK$ ERT; 

: 16 166 1 

: 168 167 1 ACT_DFN 

> 169 168 1 

: 170 169 1 EXTERNAL ROUTINE 

+ 171 170 1 ACTSNXT_STATE; 
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Clear EXECUTOR 

Clear Configurator 

Clear Console 

Clear Loader 

Clear Looper 

Clear X25-ACCESS 

Clear X25-PROTOCOL 

Clear X25-PROTOCOL DTE 
Clear X25-PROTOCOL Group 
Clear X25-SERVER 

Clear X25-TRACE 

Clear X25-TRACE Tracepoint 
Clear X29-SERVER 


External symbols for action routines 


Set vector to next state table 
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General blocks 
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Prompt strings 14-Sep “19 7 CLP.B32; 
; 457 1 ZSBTTL ‘Prompt strings’ ; 
: 438 ° 1 : 
4 4 126 1! e 
5 ree 4 ? ! Build prompt strings : 
; 46 5 1 : 
3 ret § ; BIND : 
: 465 P : 1 PROMPT _STRINGS 
@: P 0460 | a 
; 468 L $ 1 ENT, ZSTRING(' 2 CIRCUIT EXECUTO®.. KNOWN LINE." ' CRLF, 
> 469 p ¢ 1 OGGING MODULE, WODE, OBJEC 
; 470 P0463 1 1! MOD, ZSTRING(' ONAL CESS. xgs ~PROFOCOL X25~SEAVER, "CRLF, 
; 471 P 0464 1 !! X25-TRACE, X29-SERVER): 
> 47 L 0465 1 MOD, XSTRING(' ‘Module (CONF IGURATOR . Gonséue, LOADER. CRLF, 
3 467 L BS68 1 LOOPER Tamer at F K2  eatr 
: 47% P 0467 1 * —-X25-SERVER, X25-TRACE, X29-SE VER); ‘ 
; 4675 P Bree 1 KWN, ° (LINES, Coucine. NODES, OBNECTS), ¥ 
: 476 P 0469 1 
3; 477 0470 2 ) 
Bova: 8 pas 
: 480 0473 1 
it P ocrs oo 
; 48 = pe78 1 
3; 484 P 0477 1 ENT, ‘Node ID (node-name, node-address): ', 
; 485 P bees 1 
: 488 0680 we 
: 488 0481 1 
; 489 P Bees 1 oa 
pi te tae 
; 49 P 0485 1 ALL, *ALL line parameters (Y, N): ‘', 
; 49 P ot 4] 1 ENT, ‘Line ID (dev-c-u.t): a 
3 4694 P 0487 1! CTM, Remeer timer Y, N): ', 
; 4695 P 0488 1! DDT, ‘Dead timer (y; N): °, 
: 496 P 0489 1! DLT, “Delay timer (Y, NW): °, 
: 497 P 0490 1! HTI, ‘Hold ack timer (Y, N): °, 
; 498 P 0491 1! MRT, ‘Maximum retransmits (Y, N): ', 
; 4499 P Ones 8: SLT, ‘Scheduling timer cv, Ge °, 
: 200 P 0495 1! SRT, ‘Stream timer CY, Ns °, 
: 1 P 0494 1 
: 2 ea 
: 504 497 1 ; 
; 05 P res 4 1 PROMPT_STRINGS 
; 54 . : : (CCl, 
; 508 P ot 1 ALL, ‘ALL circuit poreseters (Y, NW): °, 
; 509 p 206 1 ENT, ‘Circuit ID (16 characters): .. 
3 10 P 05 1! BBT, ‘Babble timer (Y, Nd: °, 
: 11 ig ope 1! CTM, ‘Counter timer (Y, N): ‘e 
3 \¢ P 0505 1! MRB, ‘Maximum receive buffers (Y, N): . 
s 51 P 0506 1 '!! MRC, ‘Maximum recalls (Y, N) , 
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CLP Cle 16-S 74 NC 
-000 Prompt strings 14-5 P.SRCINCPSTACLP.B32; (8) vO: 
; 516 P 2 , Se a OWN, ‘Owner (Y, NW): °, : 
; $15 P 1 !! RCT, ‘Recall timer (Y, N)s °, F 
$ 18 P 1! TRT, ‘Transmit timer C¥, Ws *, 3 
3 3 P0510 1! ACB, ‘Active base CY, Ws °, F 
$ \8 P0511 1! ACI, ‘Active increment CY, Ws °, $ 
s 3 & \ 1! IAB, ‘Inactive base (Y, N): °, $ 
; 0 P0515 1! IAI, ‘Inactive increment CY, Ws: °, : 
3 1 P0514 1! IAT, ‘Inactive threshold v, Gre *, 3 
; § P0515 1! DYB, ‘Dying base (Y, Ws: °, -, 
$ = B28 1! DYI, ‘Dying increment (Y, N): °, . 
: 4 P0517 1! DYT, ‘Dying threshold (Y, N): ‘, 2; 
; 5 P bale 1: DTH, ‘Dead threshold (CY, Ms °, : | 
; § P0519 1 .. 
3 0520 . ) 3 
3 8 B2 1 - 2. 
; 9 5 ¢ 1 .: 
; 0 P b2 1 PROMPT_STRINGS 3 
5 1 P 0524 (1 (CLO, - 
3 236 P0525 1 3 
3 ds P 0526 1 ALL, ‘ALL logging of the specified type (Y, ND: °, 2 
3 534 P 0527 1 ENT, ‘Type of logging (CONSOLE, FILE, MONITOR): ', * 
3 5335 P 0528 1 EVK, ‘Event List (cls.typ-typ,typ, KNOWN): ', 2 
; 336 P $i 94 1 NAM, ‘Name of sink file o M: *, 2, 
3 Sor L 0530 1 SRC, ZSTRING(*Source of events (LINE Line-id, *, CRLF, .) 
: 538 P 0531 1 7 CIRCUIT circ-id, NODE node-id): *), : 
3; 339 P b28¢ 1 SNO, ‘Sink node (node-id, EXECUTOR): ', . 3 
: 540 P 0533 1 .} 
3; 541 0534 2 ) 2. 
> 542 0535 (1 : - 
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Prompt strings - NCP.SRCINC CPSTACLP. B32;1 (9) 
> 546 1 
3; 545 1 BIND 
: 56 8 1 
; 54 P 1 PROMPT_STRINGS 
: 36 P 0540 1 (COB, 
3s 364 P 0541 1 
; 550 P 0542 1 ALL, ‘ALL parameters Vv, We *, 
; 1 P 0545 1 ENT, ‘Ob ass — SARA 5. ’. 
3 : be ee 1 FIL, ‘File name (Y, ND: °, 
: P 0545 (1 NUM, ‘Ob ect “nunber (Y, ND: °, 
; 554 P e293 1 PRV, ‘Privileges Vo Wet 7. 
: 2 & 8 47 1 USR, ‘User ID (Y, ND: °, 
3 $ P rt 1 PSW, ‘Password (Y, N): ‘, 
° P 8 49 1 ACC, ‘Account CV. Ut." s 
3 308 P 0550 1 PRX, "Proxy access (Y, Ns: °, 
; 559 P 0551 1 
; 560 226 2 ) 
: 561 553 1 3 
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vos State Table Entry 12286871384 ERE ENCP.SRC NCPSTACLP.B32; 9°10) 

; $3 é XSBTTL ‘State Table Entry’ .| 
; 565 § SINIT_STATE (NCP$G_STTBL_CLPU, NCPSG_KYTBL_CLPU); : 
; € 8 2 4 : 
: oe 223 : CLEAR/PURGE Commands : 
; 570 $61 1 : 
: 571 6¢ 1! . | 
3 OL 7e> 61 ‘ 
3; of 64 1! ; 
; 574 65 1 : 
: 575 P 66 1 COMMAND. PROMPT : 
; 78 4 % : (CLPU, ENT, NCPS_INVKEY, ‘ 
: 578 P 0369 1 (*CIRCUIT’ ST_CCI_ENT, , NMASC_ENT_CIR, NCPSGL_OPTION, ), : 
: 579 P 3 01 (* CONFIGURATOR" ,ST~CLPO_CNF), : 
; 380 P0571 1 (* CONSOLE", STCLPU- : 
: 581 P O78 1 ('DTE', ST-CLPU-CPROTE), : 
; 382 P0573 1 ("EXECUTOR', TPAS_EXIT, ACTSNXT STATE, é 
; 58 P0574 1 NMASC_ENT-NOD, NCPSGL_OPTION, NEXT_STATE(CEX)), : 
; 284 P0575 1 (*GROUP’, ST_CLPU a : 
; «585 Pp 0276 1 ("LINE' ST-CLI_ENT, , NMASC_ENT_LIN, NCPSGL_OPTION, ), . 
; 586 P0577 1 ("LOADER', ST-CLPO_LOA). : 
; 587 P 0578 1 (*LOOPER® | ST“CLPU-LOO), ; 
; 588 P0579 1 ("LOGGING', ST“CLO_ENT, . NMASC_ENT_LOG, NCPS$GL_OPTION, ), : 
; 589 P0580 1 (* KNOWN? » ST-CLPO_KWN, ACTSSAVPRM, , , PBKSG_CULPU_KWN), ¢ 
; 590 Pp 0581 1 (*MODULE', ST-CLPU-MODS, : 
; 591 Pe 286 1 ("NODE ST-CNO_ENT, , NMASC_ENT_NOD, NCPS$GL_OPTION, ) : 
; % P0583 1 ("OBJECT ST“COBENT, , NMASC-SENT_OBJ, NCPSGC_OPTION, 5, : 
; 23 P 584 1 (*TRACEPOINT', STICLPO_CTRTPT), : 
: 59% P0585 1 (xg " ST~CLPU-X25), : 
3 eee P b288 ' °K 7 ST-CLPU_X29) ; 


' 
; Dispatch to entity types and prompt if end of string 
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*Clear/Purge Known’ 


Clear purge known 


Dispatch for the entity types, prompt if none 


COMMAND_PROMPT 
(CLPU, RWN, NCPS_INVKEY, 

("CIRCUITS', | ST_CCI_GO, , NMASC_ENT_CIR, NCPSGL_OPTION, ), 
("LINES® STCLI“GO, . NMASC-ENT-LIN, NCPS$GL-OPTION, ). 
("LOGGING® ST-CLO-GO, , NMASC-ENT-LOG, NCPSGL_OPTION, ), 
("NODES', TPAS_EXIT, ACTSNXT_STAT 


E 
NMASC_ENT_NOD, NCPSGC_OPTION, NEXT_STATE(CNO)) 
("OBJECTS', ST_COB_GO, , NMASC_SENT_OBJ, NCPSGL_OPTION, ) 
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3 67 1 é 
; 67 is 1 SSTATE (ST gtPt CPR ! x25-Protocol ° 
; 6 P 1 (TPRS_LAMBDA, TPAS_EXIT, ACTSNXT_STATE, : 
: 680 p 66 ' NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(CPR)) : 
; 4 P 0671 1 $sTATE (ST gu LPU_CPRDTE ! X25-Protocol DTE : 
; P 0672 1 (TPRS_LAMBDA, TPAS_EXIT, ACTSNXT_STATE, ; 
: 684 P 673 : NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(CPRDTE)) : 
: 686 P0675 1 SSTATE (ST guy CPRGRP ! X25-Protocol Group : 
; P 676 1 (TPAS_LAMBDA, TPAS_EXIT, ACTSNXT STATE, : 
; 688 P uy NMASC im _MOD, NCPSGL_OPTION, NEXT_STATE(CPRGRP) ) : 
; 690 79 1 : 
; 691 P 0680 1 $STATE (ST_CLP : 
; 698 P 0681 1 (IPRS LPARGDA. TPAS_EXIT, ACTSNXT_STATE, : 
: 69 P : 1 NMASC_ENT_MOD, NCPSGL_OPTION, NEXT_STATE(CSE)) : 
> 694 85 1 ; ‘ 
; 695 rt 1 : 
; 696 P 0685 1 SSTATE (ST_CLPU_CTR, ! X25-Trace ; 
; 69 P 86 1 (TPAS_LAMBDA, TPAS_EXIT, ACTSNXT_STATE, : 
; 698 P 87 pret _ENT_MOD, NCPSGL_OPTION, NEXT_STATE(CTR)) : 
; 700 P 0689 1 $STATE (ST_CLPU_CTR ! x25-Trace Tracepoint : 
; 701 P 9690 1 (TPAS_LARBDA PTPAS EXIT, ACTSNXT_ STATE, : 
; 20¢ P 0691 1 NRASE _ENT_MOD, NCPSGL_OPTION, NEXT_STATE(CTRTPT)) : 
; £ 244 1 ; ‘ 
3; 7 06935 1 : 
: 705 P 0694 1 $STATE (ST_CLPU_C9S, ! X29-Server : 
; 706 P 0695 1 CIPASLAMBDA, TPAS_EXIT, ACTSNXT_STATE, ; 
: 207 P 0696 é‘ NMASC_ENT_FOD, NCPS$GL NOPTION. NEXT_STATE(C9S)) : 
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Clear/Purge Node 14-Sep-1984 12:48:17 NCP. SRCINCPSTACLP.B32;1 (13) 

>; 710 a8 1 ZSBTTL ‘Clear/Purge Node’ ° 
3 ap 1 ; 
; \§ , 1} : 
3; 71 7 1! Clear purge Node : 
; 716 7 § 1! ° 
3; 7s 7 1 : 
; re 706 1! ; 
; 71 705 1! Collect the node id or prompt : 
: 718 7 se , 
; 719 8 1 : 
: 720 P0708 1 COMMAND PROMPT : 
i og P9709 | (CNO, ERT, NCPS_INVVAL, : 
F : P0711 1 ( (SE_NODE_ID), , ACTSSAVPRM, , , PBKSG_CNO_ENT) : 
> 72h P Orie 1 ; 
> 725 713 1 ) : 
se $ 0714 1 : 
; fz P0715 1 SSTATE : 
; 728 P0716 1 (fPas LAMBDA, TPAS_EXIT, ACTSNXT STATE, : 
; 729 P0717 1 NMASC C_ENT_NOD, NCPSGL OPTION, NEXT STATE (CNO) ) ‘ 
; 730 0718 1 ; : 
ae 4) 0719 #1 : 
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Clear/Purge Circuits 12286871384 90308: % NCP.SRCINCPSTACLP.B32; ‘ (14) 

; z 3 4 9 } ZSBTTL ‘Clear/Purge Circuits’ ‘ 
: oR tse 1 i cl ircuit 
3 : ear purge circuits ‘ 
ie 724 1! , ‘ 
val ¢ 725 (1 ‘ 
; 739 7 § 1! : 
3 oy ; } Collect the circuit id and save it, prompt if none ° 
; og 7 § 1 ‘ 
; 74 P0730 1 COMMAND _PROMPT ‘ 
: re 4 f 1 } (CCI, ERT, NCPS_INVVAL, ° 
; 74 P 07 § 1 ( (SE_CIRC_1D), , ACTSSAVPRM, , , PBK$G_CCI_ENT) . 
; 74 P 0734 1 : 
; 748 735 (1 ) ‘ 
: 749 7 $ 1 ; 
; 750 7 , } ‘ 
s 31 738 1! Come here after KNOWN and either prompt ‘ 
3; © ¢ 73y 3 3 or dispatch to process args ° 
a: 740 1! : 
3; 7546 741 «4 : 
3s 29 P rg 1 $STATE (ST_CCI_GO, : 
: £38 P0743 1 (TPAS_EOS), : 
; o3 P0744 1 (TPAS-LAMBDA, ST_CCI_PRC) ; 
; 758 745 «1 ); : 
; 759 4 1 : 
; 760 P 0747 1 QUERY_STATES ! Build states to query for params : 
: 761 P0748 1 (CCl, ; 
; 76 P0749 1 : 
; Pp 730 1 ALL : 
3; 764 P0751 1 ; 
; 765 8726 1 ) “ 
; 166 753° «1 : 
: 76 Br 3 1! 3 
3; 768 735 1! Perform the function if there is no junk on the Line : 
3; 769 3736 1! 3 
; 770 757 «#1 ; 
. i P 0758 1 $STATE (ST_CCI_DOIT, ! Set the option mask : 
s 77 P 0759 1 (TPAS_LAMBDA, , , NMASC_ENT_CIR, "NCPSGL "OPT ON, ) : 
3; 77 0760 1 ); : 
3 «774 353 1 3 
’ ive P roe 1 $STATE ( ! Perform the function : 
: a P 3767 : (TPAS_ EOS, TPAS_EXIT, ACTSVRB LUTILITY, , . SDB$G_CCI) : 
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: 78 rep ds 
: 7 res 1 i Dispatch for the parameters 
: TR reo | 
: , 4 P £20 SSTATE (ST_CCI_PRC, 
> F POr7e | DISPATCH_STATES 
ie BER Bg Yee 
: 789 P0775 1 ACT, "ACTIVE, 
: 790 P0776 1 ALL, ‘ALL’ 
: 791 P0777 1 BBT. ‘BABBLE' 
: 79 P 178 1 BLK, "BLOCKING', 
: 79 P0779 1 CHN, 'CH e 
: 79% P 780 1 COS. ‘COST’ 
: 795 Pp 0781 1 CTH, ‘COUNTER’, 
: 796 P 78 1 DTH, "DEAD', 
: 79 P0783 1 DTE, ‘DTE' 
: 798 P0784 1 DYE. "DYING' 
: 799 P0785 1 HET. ‘HELLO’. 
: 800 P O78e 1 IAC, "INACTIVE', 
> 801 P 078 1 LIN, "LINE', 
: 80 P0788 1 LIT, ‘LISTEN’, 
: 80 P0789 1 MAX, "MAXIMUM', 
: Bos 5 Ore un OUNERS,” 
: 806 P 079¢ 1 POL, "POLLING', 
: 807 P0793 1 RCT. "RECALL', 
: 808 P0794 1 RPR, "ROUTER' 
: 809 P 0795 1 SER, "SERVICE’, 
: 810 P 796 1 STA, "STATE 
> 811 P0797 1 TRT. 'TRANSMI “- 
: 81g P0798 1 XPT. "TRANSPORT®, 
: 81 P0799 1 TRI, ‘TRIBUTARY’, 
> B14 P 0800 1 TYP, ‘TYPE’, 
: 815 P0801 1 USE, "USAGE 
: 816 Pp 080¢ 1 VER. VERIFICATION’, 
; 81 P0803 1 
: Big B BOS | ‘ 
: 820 P 0806 1 (TPA$S_EOS, ST_CCI_DOIT) 
> 821 807 1 j; 
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3 1 ; 
3 i ' 1! 3 
; 825 10 1! These states take care of noise words : 
: 8 19 ; and call the subexpressions to do the work : 
; 1317 ; 
: 859 P0814 1 PROCESS_STATES ; 
ns ee : 
: P O89 SER, | 
3 : 5 4 Y } bree TIMER’, : 
: 8 P é 1 MRT, ¢ ! From MAX below : 
; 8 P 0823 1 RPR, ‘PRIORITY’, . 
; 839 P OBge HET, ‘TIMER’, : 
: re : 5 : mee "TIMER', ‘ 
: Hk p 8 5 1 MRC, : ' From MAX below : 
BO RRR Bk te | 
(Be BER] Ba teers 7 
: 847 p 08s 1 LIN, ; ; 
; 848 P 4 1 USE. « 3 
3; 849 P 0834 1 TYP, , $ 
; 850 P 0835 1 OTE, , 3 
; 851 e te: 1 CHN, , 3 
; $26 P 08 1 MBL, . ' From MAX below ; 
: $27 : +t : wie : ' From MAX below : 
: 855 P0840 1 BBT. ‘TIMER’, : 
3; 856 P 0841 1 TRT, ‘TIMER’, $ 
; 857 P B3e¢ 1 MRB, , ' From MAX below $ 
3; 858 P Oat 1 MTR, , ' From MAX below 3 
; 859 P 0844 1 ACB, , ' From ACT below $ 
; 860 P 0845 1 Mis » ' From ACT below 3 
; 861 P oe6 1 IAB, , ' From IAC below 3 
3 B66 P 0847 1 IAI, , ' From IAC below 3 
; 86 P 0848 1 = ' From IAC below g 
5 P 0849 1 DYB, . ' From DYE below 
: 5 P 0850 1 oYI, , ' From DYE below 
3 2 sth 1 DYT, , ' From DYE below 
: 4 th : DTH, "THRESHOLD', 
: 869 P0854 1 VER, « 
: a 4 Bee : XPT, ‘TYPE’, 
: 872 B39 1 ) 
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: 874 H 1 ° 
3; 879 1! : 
3 f } These subexpressions store away the parameter id's ° 
3 a8 § 1 : 
: © 1 SUB_EXPRESSIONS ° 
3 0 a 4 1 (CCI, : 
: 1 P 0865 1 ° 
: 56 e 06 1 ALL, TPAS$_EOS, ¢ 
; P 0867 1 : 
; 884 P 1 STA, TPAS_LAMBDA, : 
: 5 P § 1 SER, TPAS_LAMBDA, : 
; Pp 1 CIM, TPAS_LAMBDA, . 
; 88 P 0871 1 COS, TPAS_LAMBDA, . 
; 888 p te 1 MRT, TPAS_LAMBDA, é 
; 889 P 0875 «1 RPR, TPAS_LAMBDA, ° 
; 890 P 0874 1 HET, TPAS_LAMBDA, ° 
: $3) P 0875 1 LIT, TPAS_LAMBDA, : 
; 89 P pare 1 BLK, TPAS_LAMBDA, . 
; 489 P 087 1 MRC, TPAS_LAMBDA, . 
; 894 P 0878 1 RCT, TPAS_LAMBDA, ° 
3 £3? P 0879 1 - TPAS_LAMBDA, ° 
; 896 P Sees 1 POL, TPAS_LAMBDA, ¢ 
3; 897 P 0881 1 - TPAS_LAMBDA, ° 
; 898 ig pat 1 LIN, TPAS_LAMBDA, ° 
; 899 P 0883 1 USE, TPAS_LAMBDA, ° 
; 900 P 0884 1 TYP, TPAS_LAMBDA, : 
: 901 P 0885 1 DTE, TPAS_LAMBDA, : 
: 90 B 0886 1 CHN, TPAS_LAMBDA, : 
: 90 P 0887 1 L, TPAS_LAMBDA, ° 
; 904 P 0°88 1 MWI, TPAS_LAMBDA, e 
: 905 P 0889 1 TRI, TPAS_LAMBDA, : 
3 ee P 0890 1 » TPAS_LAMBDA, ° 
:; 90 P 0891 1 TRT, TPAS_LAMBDA, ° 
; 908 P 384 1 MRB, TPAS_LAMBDA, ° 
3; 909 P 0893 1 MTR, TPAS_LAMBDA, : 
; 910 P 0894 1 ACB, TPAS_LAMBDA, ° 
3; «911 P 0895 1 ACI, TPAS_LAMBDA, ° 
: alg P baoe 1 - TPAS_L ° ° 
; (91 P 0897 1 IAI, TPAS_LAMBDA, ° 
3; «9146 P Bae 1 IAT, TPAS_LAMBDA, ° 
3; «915 P 0899 1 DYB, TPAS_LAMBDA, ° 
; 916 P 0900 1 DYI, TPAS_LAMBDA, ° 
; 917 P rf 1 DYT, TPAS_LAMBDA, 
: ai3 Pp ; 1 DTH, TPAS_LAMBDA, 
; (91 P 0903 1 
; 920 P0904 1 VER, TPAS_LAMBDA, 
: 921 P 0905 1 XPT, TPAS_LAMBDA, 
s; 9 § P 0906 1 
; g 907 1 ) 
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; 925 1 ; 
H 358 30 1! ‘ 
3; F 910 1! Dispatch on MAXIMUM keyword ‘ 
3 F : 911 1! : 
> aig 1 ; 
. ¥ P 0915 1 SSTATE (ST_CCI_PRC_MAX, ° 
3 95) P0914 1 : 
3 9 § P0915 1 DISPATCH_STATES : 
3 9 P aig 1 (CCl, ° 
3; 9 P0917 1 : 
: 935 P ais 1 MBL, ‘DATA’, ‘ 
3; 9 P0919 1 MRC, ‘RECALLS’, ‘ 
; 9 P0920 1 MRT, ‘ROUTERS' : 
: 9 P0921 1 MTR. 'TRANSMITS', : 
; 939 P 09 § 1 MWI, ‘WINDOW’, ° 
; 940 P 09 1 : 
2 ee: oe ; 
; 308 9 § 1 : 
> 944 9 1! 
3 oF 34 : Dispatch on ACTIVE keyword 
; 947 0930 1 
; 948 P 0931 1 SSTATE (ST_CCI_PRC_ACT, 
; 949 F 44 § 1 
; 950 P 09 1 DISPATCH_STATES 
i feed) & 
3 985 7 o398 1 ACB, ‘BASE’, 
: 954 P 09 1 ACI, ‘INCREMENT’, 
; 955 P b3a6 1 
: 956 P 0939 1 ) 
; 957 0940 1 ); 
; 958 0941 1 
; 959 bk 1! 
; 960 0945 1! Dispatch for INACTIVE keyword 
; 961 0944 1! 
3 308 0945 1 : 
; © P peg 1 SSTATE (ST_CCI_PRC_IAC, ! Inactive things 
: 964 P 0947 1 
; 965 P peee 1 DISPATCH_STATES 
; 966 P 0949 1 (CCl, 
: 967 P0950 1 
: 968 P 0951 1 IAB, ‘BASE’, 
3 208 P 236 1 IAI, ‘INCREMENT', 
; 970 P0953 1 IAT, ‘THRESHOLD’, 
3; 971 P0954 1 
3 376 P0955 1 ) 
oR 2 Bee 
: «975 3 1! 
; a8 959 1! Dispatch for DYING keyword 
; 97 960 1! 
; 978 961 1 
; 4 4 306 ! SSTATE (ST_CCI_PRC_DYE, 
; 3B P 0964 1 DISPATCH_STATES 
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; P 

; P 1 DYB PASE 

; P 1 DYI, "INC REMENT® 
3 4 | DYT, "THRESHOLD', 
; 9 P0971 1 ) 

; 989 972 1 ) 
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*Clear/Purge Lines‘ 


Clear purge Lines 


Collect the Line id and save it, prompt if none 
COMMAND _PROMPT 

(CLI, ENT, NCPS_INVVAL, 

( (SE_LINE_ID), , ACTSSAVPRM, , , PBK$G_CLI_ENT) 
) 

Come here after KNOWN and either prompt 

or dispatch to process args 


(ST 
(TPRS_EOS). 
(TPAS_LAMBDA, ST_CLI_PRC) 
QUERY_STATES 
(CLI, 

ALL 

) 


Perform the function if there is no junk on the Line 


(ST_C OlT, '§ 

CTPAS_LAMBDA, » » NMASC_ENT_LIN, NCPSGL_OPTION, ) 
( 
( 
) 


: unc 
TPAS_EOS, TPAS_EXIT, ACTSVRB_UTILITY, , . SDB$G_CL 


! Build states to query for params 


LI_D et the option mask 


Perform the fun tin 
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NCPSTACLP Clea 
vOe Clea 

3; 1037 1018 1 

[1 § 1019 1! 

s 1 1 2 Dispatch for Line parameters 
> 1040 1001 1: 

: 1041 1 : 1 

: 1 ‘ Pi 1 S$STATE (ST_CLI_PRC, 

: 1 P1024 1 

3 1044 P1025 1 DISPATCH_STATES 

> 1045 P 19 $ 1 (CLI, 

3 1046 Pj 1 

: 1 P1022 1 ALL, ‘ALL’, 

3 1 § Pp 19 9 1 CLO, ‘CLOCK’, 

31 P1030 1 CON, "CONTROLLER', 

: 1 30 P 19 11 COS, ‘COST 

: 1051 P 1 : 1 CTH, ‘COUNTER’, 

: 105¢ P1033 1 DDT, ‘DEAD’, 

: 105 P1034 1 DLT, ‘DELAY’, 

> 1054 P1035 1 DEV, "DEVICE', 

: 1055 P 10 $ 1 DPX, "DUPLEX', 

; 1056 P1037 1 HTI, *HOLDBACK', 

> 105 P1038 1 MAX, ‘MAXIMUM’ 

> 1058 P1039 1 MCD. "MICROCODE', 

: 1059 P1040 1 XMD, "MODE', 

+ 1060 P1041 1 NIM, *RETRANSMIT’, 

> 1061 P 1048 1 NTM. "NORMAL', ! {v2 only] 
: 106¢ P1043 1 PRO, ‘PROTOCOL’, 

: 106 P1044 1 BFN, ‘RECEIVE’, 

3 1064 P1045 1 SLT. 'SCHEDULING’, 

> 1065 P1046 1 SVC, "SERVICE', 

; 1066 P1047 1 STA, ‘STATES, 

> 106 P1048 1 SRT. 'STREAM 

+ 1068 P1049 1 TRB, ‘TRIBUTARY’, 

: 1069 P1050 1 TYP, "*TYPE', 

: 1070 P1051 1 

: tore P1988 | ' 

; 1998 P1054 1 (TPAS_EOS, ST_CLI_DOIT) 
> 1074 1055 1 5; 
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From MAX below 
From MAX below 
From MAX below 
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TPAS_EOS, 


TPAS_LAMBDA, 
TPAS_LAMBDA, 
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! Sub-dispatch for sink node or exec 


LIST), TPAS_EXIT, ACTSSAVPRM, , , PBK$G_CLO_EVL), 
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StO5t EtSar/purge [erties oe i - op- 138 99:93:95 Be ees tcl pb o3509 ° (283 
$ : te P } 83 } ("KNOWN', , ACTSSAVPRM, , , PBK$G_CLO_EVL) 
: 1315 1 1 ; 
3 1 1 P 1291 1 $STATE (, 
3 ! i P ! 35 1 : (SE_LEVENT_KNOWN), TPAS_EXIT) ! Store known event code 
: 1319 1294 1 : 
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lear/Purge Objects 122868-1 382 9030899 NCP. SRCINCPSTACLP.B32; 9 035 

36 ZSBTTL ‘Clear/Purge Objects’ 

! 
$3 Clear purge objects 
ar 
¢ Collect the object name/number or prompt 
COMMAND _P 


ROMPT 
(COB, ENT, NCPS_INVVAL, 
( (SE_LOBJECT_ID), , ACTSSAVPRM, , , PBK$G_COB_ENT) 


 vuvuvUv0v 


C 
¢ 
3 3 1 1 
3 1 1 1 
: 1 1 
3s } 1 1 
3 1 1 1 
3 1 1 1 
3 1 1 1 
3 1 1 1 
3 1 1 1 
3 1 1 1 
3 1 1 1 
: ? 1 1 
3 1 1 1 
3 7 1308 1 
3: 1 1309 1 
3 7 1310 1 ) 
3 7 1311 1 
3; 1338 1 \¢ 1! 
3 } , : 17 : : Should we prompt or just process the remainder of the command? 
3 1341 1315 1 
3 7 ¢ P 1316 1 $STATE (ST_COB_GO, 
3, 3 e Agr 1 (T IPRS. E6S) 
3 1344 P1318 1 (TPAS— -FAnBbA, ST_COB_PRC), 
3; 1345 1318 1 ); 
3: 1346 1 $y 1 
3: 1347 P1321 1 QUERY_STATES ! Prompt for selected parameters 
3 1348 P 1356 1 (COB, 
3 1349 P 1 1 
3; 1350 P 1324 #1 ALL, NUM, FIL, PRV, USR, PSW, PRX 
3 132) P1325 1 
3 1 26 1326 1 ) 
3 132 1327 1 
3: 1354 1328 1 
; 1322 P 1329 1 $STATE (ST_COB_DOIT, 
3 \ 28 P : . : CTPRS_LARBDA, - « NMASC_SENT_OBJ, NCPSGL_OPTION, ), 
3 138 1333 1 
3; 1359 P 1 1 S$STATE ( 
3 Eo P 3 : : (fPAS_EOS, TPAS_EXIT, ACTSVRB_UTILITY, , , SDB$G_COB) 
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NCPSTACLP Clear/Purge Parse States and Data bn Sep- AX-11 BLi S374 V4.0-74 Page 37 
+ 4 Subexprestions i 300-138 99: 93: 9% NCP. SRCINCPSTACLP. B35t4 ° (285 
3: 1407 1 4 1 ZSBITL ‘Subexpressions' 

3; 14 1 1 

3 14 1 2 

3: 1410 1 1! Sub_expressions 

3 1611 1 i! 

3 1216 1384 1 

3; 141 P1385 1 SUB_EXPRESSIONS 

3 14614 P 1 $ 1 (CoB, 

: 121 p i 8 i ALL, TPA$_EOS 

: 1219 Pp 1389 1 ACC, TPAS_LAMBDA, 

3 1318 P 1390 1 FIL, TPAS_LAMBDA, 

3 141 P 1391 #1 NUM, TPAS_LAMBDA, 

; 1420 P 139 1 PRV, TPAS_LAMBDA, 

3: 1421 P 139 1 PRX, TPAS_L ° 

3 14 ¢ P 1394 1 PSW, TPAS_LAMBDA, 

3; 14 P1395 1 USR, TPAS— LAMBDA, 

3 1OSe P 1396 1 

3: 1425 1397 1 ) 


4 11 
NCPSTACLP Clear/Purge Parse States and Data -Sep- :05: Ax-11 iss-32 V4.0-74 Page 
ShO6 Define Vidscoress ions rom Library 19: 00-1882 99:03:96 Nee eee Pict 6: 83504 ° (385 
: 16 13 } ZSBTTL ‘Define Subexpressions from Library’ 
: 14 1400 1! 
: 1? 1? } } Define subexpressions from Library 
: 1436 1403 1 
3; 14 1404 1 SEM_NODE_ID ! Node id cr ings 
3 14 1405 1 SEM_CIRC_ID ' Circuit id strings 
3: 1435 14 1 SEM_LINE_ID ! Line id strings 
3; 14 14 1 SEM_QUOT STR ! Quoted strings 
7 14 1408 1 SEM_OBJECT_ID ! Object name/number 
3 14 1409 1 SEM_LOG_TYP ! Log ing entity type 
: 1439 1410 1 SEM_EVERT_LIST ' List of event numbers 
3; 1440 1411 «1 SEM_QUER ! Query state subexpressions 
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waCSLAGt” | SANRE(MUERE RATES Bue aR IEepcHBHt Q9:Q6:0)  EeDABbAans ct: B24 rae ff 
: 144 i } ZSBTTL ‘Object Listing of Parse Table’ : 

3 1446 141 

3 1444 141 1 END ‘End of module 

3 1465 1461 0 ELUDOM 
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